
#Analise a relao dap-altura ('dap' e 'h') em funo do caixetal 

caixeta.agr=aggregate((caixeta$cap/pi), by=list(local=caixeta$local,h=caixeta$h,arvores=caixeta$arvore,especie=caixeta$especie), FUN=sum) ##Cria um novo data.frame em que a varivel CAP  dividida por pi (gerando o DAP) e agregada pelo local, altura, rvore e espcie. 

caixeta.tab=caixeta.agr[grep("Tabebuia cassinoides", caixeta.agr$especie),] 

par(mfrow=c(2,2))

#Relao Dap-Altura para a localidade Chauas.
plot(x~h, data=caixeta.tab, subset=local=="chauas", main="Chauas") 

#Relao Dap-Altura para a localidade Juria.
plot(x~h, data=caixeta.tab, subset=local=="jureia", main="Jureia") 

#Relao Dap-Altura para a localidade Retiro.
plot(x~h, data=caixeta.tab, subset=local=="retiro", main="Retiro") 


#Linearidade usando scatter.smooth
chau=caixeta.tab[grep("chauas", caixeta.tab$local),] 

jur=caixeta.tab[grep("jureia", caixeta.tab$local),] 

ret=caixeta.tab[grep("retiro", caixeta.tab$local),] 
par(mfrow=c(2,2))

#Linearidade para a localidade Chauas
scatter.smooth(chau$x, chau$h, col="pink") 

#Linearidade para a localidade Juria
scatter.smooth(jur$x, jur$h, col="pink") 

#Linearidade para a localidade Retiro
scatter.smooth(ret$x, ret$h, col="pink") 

#Linearidade para todas as localidades
scatter.smooth(caixeta.tab$x, caixeta.tab$h, col="pink") 
par(mfrow=c(1,1))


#Analise a relao dap-altura ('dap' e 'h') em funo do caixetal 

library(lattice) 

xyplot(x~h|local, data=caixeta.tab) #Relao Dap-Altura 

